home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 09, No. 11 (1988-11)(MicroSPARC)(Side A)[a].zip / Nibble Volume 09, No. 11 (1988-11)(MicroSPARC)(Side A)[a].po / MOIRE.bas < prev    next >
BASIC Source File  |  1996-12-24  |  194b  |  1 lines
  1. 30  HGR2 : FOR Z = 1 TO 6: FOR C = 0 TO 191: HCOLOR= (A *Z) +1: HPLOT 0,0 TO 279,C:A =   NOT A: NEXT : FOR B = 279 TO 0  STEP  -1: HCOLOR= (A *Z) +1: HPLOT 0,0 TO B,191:A =   NOT A: NEXT : NEXT